unit UntUtil;

interface

function HeDiaUtil(Data: TDateTime): Boolean;

implementation

uses SysUtils;

function HeDiaUtil(Data: TDateTime): Boolean;
begin
  result := (DayOfWeek(Data) in [2..6]); //segunda a sexta
end;


end.
